100 REM CALENDAR 64 LOADER ************
120 F=F+1:IFF=1THENF=2:GOSUB300
140 IFF=2THENLOAD"CALENDAR 64 *",DV,1
160 IFF=3THENLOAD"OPSYSTEM    *",DV,1
180 IFF=4THENLOAD"CBM1351     *",DV,1
200 IFF=5THENLOAD"JOYSTICK    *",DV,1
210 IFF=6THENLOAD"KEYBOARD    *",DV,1
220 SYS3072
300 POKE53280,00:POKE53281,00
305 PRINT"[147]"CHR$(8)CHR$(14)
320 PRINTTAB(14)"[153]  [204]OADING"
330 PRINTTAB(14)"[159][195]ALENDAR 64"
340 PRINTTAB(14)"[150][214]ERSION 1.0"
360 DV=PEEK(186):IFDV<8THENDV=8
370 RETURN